home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aah.d64 / zaccheus1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  99 lines
  1. 1 REM(null)
  2. 5 REM(null)
  3. 8 POKE775,191
  4. 10 IFA=0THENA=1:LOAD"PICDRAW.SYS",8,1
  5. 30 FILE$="ZACCHEUS2"+CHR$(13)
  6. 40 LADDR=32768:NAME=40447
  7. 50 GOSUB 1000
  8. 60 REM:THIS PROGRAM IS IN THE PUBLIC
  9. 62 REM:DOMAIN. PLEASE SHARE IT WITH
  10. 64 REM:CHURCHES AND PRIVATE CHRISTIAN
  11. 66 REM:SCHOOLS.
  12. 100 SYS36867:REM LOADER
  13. 110 SYS36873:REM CLRRM
  14. 120 SYS36886:REM XHIRES
  15. 129 POKE53265,PEEK(53265)AND239
  16. 130 SYS36870:REM REDRAW
  17. 131 POKE53265,PEEK(53265)OR16
  18. 140 FORT=1TO6000:NEXT
  19. 200 SYS36883
  20. 201 PRINTCHR$(8):PRINTCHR$(142)
  21. 202 PRINT"[147]         [212][200][197][160][211][212][207][210][217][160][207][198][160][218][193][195][195][200][197][213][211]"
  22. 204 PRINT"           BY [211]TEVE [215]ILLIAMS"
  23. 205 READA$,B$,C$,D$,E$,F$,G$,H$,I$
  24. 206 IFA$="QZQZ"THEN700
  25. 207 PRINT"  [209]UESTION - "A$
  26. 208 PRINT""B$
  27. 210 PRINT""C$
  28. 212 PRINT""D$
  29. 214 PRINT" [211]CRIPTURE - "E$
  30. 216 PRINT"    [215]AS IT (A) "F$
  31. 217 PRINT" OR WAS IT (B) "G$
  32. 218 J$=""
  33. 219 POKE198,0
  34. 220 PRINT" ANSWER A OR B"
  35. 221 GETJ$:IFJ$=""THEN221
  36. 250 IFJ$=H$THEN300
  37. 252 IFJ$=I$THEN330
  38. 253 GOTO221
  39. 300 PRINT"   VERY GOOD - THAT IS CORRECT!"
  40. 303 CT=CT+1
  41. 304 FORT=1TO3000:NEXT
  42. 305 GOTO202
  43. 330 IFI$="A"THENK$="B"
  44. 332 IFI$="B"THENK$="A"
  45. 334 PRINT" SORRY - THE ANSWER WAS "K$
  46. 338 FORT=1TO4000:NEXT
  47. 340 GOTO202
  48. 400 DATA"[215]HAT TOWN DID","[218]ACCHAEUS LIVE IN?",,,"[204]UKE 19:1-2"
  49. 402 DATA"[202]ERUSALEM","[202]ERICHO","B","A"
  50. 404 DATA"[215]HAT WAS THE","OCCUPATION OF","[218]ACCHEUS?",
  51. 406 DATA"[204]UKE 19:2","CENTURION","CHIEF TAX COLLECTOR","B","A"
  52. 408 DATA"[215]HO CAME TO TOWN","THAT [218]ACCHEUS WANTED","TO SEE?",
  53. 410 DATA"[204]UKE 19:3","[202]OHN THE [194]APTIST","[202]ESUS","B","A"
  54. 412 DATA"[215]HY DID [218]ACCHEUS","HAVE TROUBLE SEEING"
  55. 413 DATA"[202]ESUS?",,"[204]UKE 19:3"
  56. 414 DATA"HE WAS SHORT AND[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]THERE WAS A CROWD[145]"
  57. 415 DATA"HE HAD TO WORK","A","B"
  58. 416 DATA"[215]HAT DID HE CLIMB","IN ORDER TO BE","ABLE TO SEE [202]ESUS?",
  59. 418 DATA"[204]UKE 19:4","A SYCAMORE TREE","THE ROOF OF HIS HOUSE","A","B"
  60. 420 DATA"[215]HAT DID [202]ESUS DO","TO [218]ACCHEUS THAT","SURPRISED EVERYONE","SO MUCH?"
  61. 422 DATA"[204]UKE 19:5","HEALED HIM","WENT TO HIS HOUSE TO EAT","B","A"
  62. 424 DATA"[215]HAT GOOD DEED DID","[218]ACCHEUS PROMISE","[202]ESUS THAT HE","WOULD DO?"
  63. 426 DATA"[204]UKE 19:8","WOULD BUILD A SYNAGOGUE[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]IN [202]ERICHO[145]"
  64. 427 DATA"WOULD GIVE HALF HIS[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]GOODS TO THE POOR[145]","B","A"
  65. 428 DATA"[201]F HE HAD CHEATED ANY","WHILE COLLECTING","TAXES, WHAT DID HE"
  66. 430 DATA"PROMISE TO DO?","[204]UKE 19:8","RESTORE IT FOUR TIMES"
  67. 431 DATA"PAY THEM 10% INTEREST","A","B"
  68. 432 DATA"[194]ECAUSE OF HIS PROMISES","TO LIVE AN HONEST LIFE,"
  69. 433 DATA"[202]ESUS SAID, '[164][164][164][164][164][164][164][164][164][164][164][164][164]","HAS COME TO YOUR HOUSE.'"
  70. 434 DATA"[204]UKE 19:9","GOOD NEWS","SALVATION","B","A"
  71. 436 DATA"[212]HE STORY CONCLUDES","THAT THE [211]ON OF","MAN CAME TO SEEK AND"
  72. 438 DATA"SAVE THE [164][164][164][164][164][164][164][164].","[204]UKE 19:10","[202]EWS","LOST","B","A"
  73. 450 DATA"QZQZ",,,,,,,,,,
  74. 700 PRINT"[147]   YOUR SCORE WAS"CT"OUT OF 10."
  75. 702 PRINT"   DO YOU WANT TO REVIEW AGAIN? (Y)"
  76. 703 PRINT" OR DO YOU WANT TO END THE PROGRAM? (N)"
  77. 706 GETA$:IFA$=""THEN706
  78. 708 IFA$="Y"THEN714
  79. 710 IFA$="N"THEN730
  80. 712 GOTO704
  81. 714 CT=0
  82. 715 RESTORE
  83. 716 SYS36886:REM XHIRES
  84. 720 GOTO140
  85. 730 SYS36886:REM XHIRES
  86. 732 FORT=1TO4000:NEXT
  87. 740 POKE775,167
  88. 750 SYS 64738
  89. 760 STOP
  90. 1000 REM
  91. 1010 LH=INT(LADDR/256):LL=LADDR-(LH*256)
  92. 1020 POKE 36878,00:POKE 36879,158
  93. 1030 POKE 36880,LL:POKE 36881,LH
  94. 1040 REM
  95. 1050 FOR I=1 TO LEN(FILE$)
  96. 1060 C=ASC(MID$(FILE$,I,I)):POKE NAME+I,C
  97. 1070 NEXT I
  98. 1080 RETURN
  99.